﻿Imports DAO
Imports DTO
Imports System.Data.SqlClient
Public Class KhuVucBUS
    Public Shared Function KiemTra_ThemKhuVuc(KhuVucDTO As KhuVucDTO) As Boolean
        Dim kt As Boolean = True
        If KhuVucDTO.TenKhuVuc.Length < 1 Then
            Return False
        End If

        KhuVucDAO.ThemKhuVuc(KhuVucDTO)

        Return kt
    End Function

    Public Shared Function LayDSKhuVucCbx() As DataTable
        Return KhuVucDAO.LayDSKhuVucCbx()
    End Function

    Public Shared Function LayDSKhuVuc() As DataTable
        Return KhuVucDAO.LayDSKhuVuc()
    End Function

    Public Shared Function CapNhapKhuVuc(KhuVucDTO As KhuVucDTO) As Boolean
        Dim kt As Boolean = True
        If KhuVucDTO.TenKhuVuc.Length < 1 Then
            Return False
        End If

        KhuVucDAO.CapNhapKhuVuc(KhuVucDTO)

        Return kt
    End Function

    Public Shared Function XoaKhuVuc(KhuVucDTO As KhuVucDTO) As Boolean
        Dim kt As Boolean = True
        If KhuVucDTO.MaKhuVuc.Length < 1 Then
            Return False
        End If
        KhuVucDAO.XoaKhuVuc(KhuVucDTO)
        Return kt
    End Function


    Public Shared DongKetNoi As SqlConnection = CKetNoi.Connect

End Class
